unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, 
  Controls, Forms, Dialogs,StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    scrollbarRed: TScrollBar;
    scrollbarGreen: TScrollBar;
    scrollbarBlue: TScrollBar;

    ShapeColor: TShape;

    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;

    procedure ScrollBarChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ScrollBarChange(Sender: TObject);
begin
   ShapeColor.Brush.Color:=RGB(scrollbarRed.Position,
                                                         scrollbarGreen.Position,
                                                         scrollbarBlue.Position);
end;

end.
